home *** CD-ROM | disk | FTP | other *** search
Text File | 1993-03-28 | 34.4 KB | 1,218 lines |
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/Changelo,v
- retrieving revision 1.89
- diff -c -r1.89 Changelo
- *** 1.89 1993/02/22 17:57:37
- --- Changelo 1993/03/29 03:13:26
- ***************
- *** 3618,3620 ****
- --- 3618,3698 ----
-
-
- ---------------------------- Patchlevel 87 ---------------------------
- +
- + support.h:: warwick
- + s/new/newname/ otherwise it clashes with the new op of c++
- +
- + findfile.c:: warwick
- + "findfile" doesn't work if the path is "\" (or "/", or "\\'),
- + while "E:\foo" works fine. Can it handle trailing slashes?
- +
- + _addsubd.cpp _addsubs.cpp _divdf3.cpp _divsf3.cpp _extends.cpp
- + _fixdfsi.cpp _fixsfsi.cpp _fxunsd.cpp _muldf3.cpp _mulsf3.cpp
- + _truncdf.cpp: andreas
- + All floating point routines: my 68000 book says that bset #bitno,dn is
- + faster than orl #imm,dn. _fixsfsi.cpp: that was also my fault
- +
- + atof.c:: andreas
- +
- + ctime.c:: andreas
- +
- + doprnt.c:: andreas
- + Another bug that i introduced in doprnt.c:
- + the m68020 version of _ICONV has the arguments of divull reversed
- +
- + errno.h, strerror:: andreas
- + include the new error EPIPE
- +
- + filbuf.c:: andreas
- + clr FILE->cnt on EoF or error.
- +
- + fopen.c:: andreas
- + dont close ttys for MiNT
- + get new buffer if file was closed
- +
- + strftime.c:: andreas
- + strftime: typo in case 't', initialize buf if format
- + directive is undefined
- +
- + strtol.c:: andreas
- + negating LONG_MIN gives overflow
- +
- + lib.h, fcntl.h::
- + The declaration for __open_stat etc. should be moved to lib.h, where
- + the internals of the library belong to.
- +
- + close.c isatty.c dup.c fcntl.c fhandle.c::
- + adjust for above
- +
- + strupr/lwr:: michal
- + use <ctype> tolower/upper instead (in case we ever support 8 bit or
- + wide chars, then the EOR trick of course will not work).
- +
- + main.c:: andreas
- + integrate c++ __main() (see changes in gcc 2.3.3 pl 3 (c-decl.c)).
- + c++ low level support now moved to this lib from libg++
- +
- + define std in/out/err symbols for debugging.
- +
- +
- + gmon.c:: andreas
- + fixup for gcc > 1
- +
- + gbl-ctors.h, longlong.h: andreas
- + new files in common
- +
- + libgcc2.c:: andreas
- + new file in common
- +
- + osbind.h, falcon.h, mintbind.h:: andreas
- + fix up for __GNUC__ > 1. note how the restriction of # of params
- + to __asm() as been lifted, and now we use this feature for
- + the larger binding. this is very benefecial as we dont have
- + to bend over backwards to get a few binding correct (binding in
- + which we would change the SP from under the compilers feet).
- +
- + realloc.c: andreas
- + In realloc, a block can only be split in two if there's enough room
- + left for a struct mem_chunk (plus a bit more). [+ roundup ++jrb ]
- +
- + ---------------------------- Patchlevel 88 ---------------------------
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/PatchLev.h,v
- retrieving revision 1.63
- diff -c -r1.63 PatchLev.h
- *** 1.63 1993/02/17 23:57:55
- --- PatchLev.h 1993/03/29 03:13:29
- ***************
- *** 1,5 ****
-
- ! #define PatchLevel "87"
-
- /*
- *
- --- 1,5 ----
-
- ! #define PatchLevel "88"
-
- /*
- *
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/close.c,v
- retrieving revision 1.15
- diff -c -r1.15 close.c
- *** 1.15 1992/06/01 01:57:48
- --- close.c 1993/03/01 17:29:28
- ***************
- *** 9,14 ****
- --- 9,15 ----
- #include <device.h>
- #include <stdlib.h>
- #include <unistd.h>
- + #include "lib.h"
-
- int (*pipeclose_p) __PROTO((int fd)) = 0;
-
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/crt0.c,v
- retrieving revision 1.23
- diff -c -r1.23 crt0.c
- *** 1.23 1992/10/09 20:32:44
- --- crt0.c 1993/03/16 22:09:01
- ***************
- *** 23,33 ****
- * -3L keep 2/4 (1/2), free 1/2 malloc from own heap
- * -2L keep 1/4 of memory, free 3/4, malloc from own heap
- *
- ! * NOTE: all of the following will do malloc from Malloc() first,
- ! * when that fails, malloc() will do further mallocs from
- ! * our own heap. This lets us use the maximum amount of
- ! * memory in traditional ST's as well as newer split address
- ! * STs.
- *
- * -1L keep all of memory (except MINFREE at top) and do
- * mallocs from own heap, with heap grown upwards towards
- --- 23,35 ----
- * -3L keep 2/4 (1/2), free 1/2 malloc from own heap
- * -2L keep 1/4 of memory, free 3/4, malloc from own heap
- *
- ! * NOTE: all of the following will do malloc from Malloc() first.
- ! * when that fails, in the -1L case malloc() will then do further
- ! * mallocs from our own heap. This lets us use the maximum amount of
- ! * memory in traditional ST's as well as in newer split address
- ! * STs. In the >=0 cases futher malloc()'s will fail, and they
- ! * will not try to malloc() from own heap. Out own space in the >= 0
- ! * cases are intended mainly for stack+alloca()'s.
- *
- * -1L keep all of memory (except MINFREE at top) and do
- * mallocs from own heap, with heap grown upwards towards
- ***************
- *** 109,115 ****
- */
- long _initial_stack; /* .comm __initial_size, 4 */
- extern long _stksize; /* picked up from user or stksiz.c */
- ! /* set to heap base addr when _stksize == -1L || _initial_stack || When DA */
- void *_heapbase;
-
- /* default sizeof stdio buffers */
- --- 111,117 ----
- */
- long _initial_stack; /* .comm __initial_size, 4 */
- extern long _stksize; /* picked up from user or stksiz.c */
- ! /* set to heap base addr when (_stksize <= -1L) || _initial_stack || When DA */
- void *_heapbase;
-
- /* default sizeof stdio buffers */
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/dup.c,v
- retrieving revision 1.6
- diff -c -r1.6 dup.c
- *** 1.6 1991/04/12 18:19:53
- --- dup.c 1993/03/01 17:29:32
- ***************
- *** 8,13 ****
- --- 8,14 ----
- #include <fcntl.h>
- #include <osbind.h>
- #include <errno.h>
- + #include "lib.h"
-
- int dup(handle)
- int handle;
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/fcntl.c,v
- retrieving revision 1.2
- diff -c -r1.2 fcntl.c
- *** 1.2 1991/12/26 15:53:59
- --- fcntl.c 1993/03/01 17:29:35
- ***************
- *** 8,13 ****
- --- 8,14 ----
- #include <stdarg.h>
- #include <errno.h>
- #include <unistd.h>
- + #include "lib.h"
-
- #ifdef __STDC__
- int fcntl (int f, int cmd, ...)
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/fhandle.c,v
- retrieving revision 1.4
- diff -c -r1.4 fhandle.c
- *** 1.4 1991/04/12 18:19:53
- --- fhandle.c 1993/03/01 17:29:38
- ***************
- *** 4,9 ****
- */
-
- #define __FHANDLE_C__
- ! #include <fcntl.h>
-
- struct __open_file __open_stat[__NHANDLES];
- --- 4,9 ----
- */
-
- #define __FHANDLE_C__
- ! #include "lib.h"
-
- struct __open_file __open_stat[__NHANDLES];
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/isatty.c,v
- retrieving revision 1.10
- diff -c -r1.10 isatty.c
- *** 1.10 1992/10/09 20:32:44
- --- isatty.c 1993/03/01 17:29:40
- ***************
- *** 7,12 ****
- --- 7,13 ----
- #include <stdio.h>
- #include <unistd.h>
- #include <device.h>
- + #include "lib.h"
-
- int isatty(fd)
- int fd;
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/main.c,v
- retrieving revision 1.24
- diff -c -r1.24 main.c
- *** 1.24 1992/10/09 20:32:44
- --- main.c 1993/03/16 22:09:03
- ***************
- *** 58,63 ****
- --- 58,68 ----
- /* in getbuf.c */
- __EXTERN void _getbuf __PROTO((FILE *));
-
- + #if __GNUC__ > 1
- + /* in libgcc2.c */
- + __EXTERN void __do_global_dtors __PROTO ((void));
- + #endif
- +
- void
- _main(_argc, _argv, _envp)
- long _argc;
- ***************
- *** 175,186 ****
- --- 180,203 ----
- __exit((long)status);
- }
-
- + /* For debuggers: non-macro versions of std{in,out,err}. */
- + #undef stdin
- + #undef stdout
- + #undef stderr
- + FILE *stdin = &_iob[0];
- + FILE *stdout = &_iob[1];
- + FILE *stderr = &_iob[2];
- +
- __EXITING exit(status)
- int status;
- {
- register int i, f;
-
-
- + #if __GNUC__ > 1
- + __do_global_dtors ();
- + #endif
- +
- for(i=0; i<_NFILE; ++i) {
- f = _iob[i]._flag;
- if(f & (_IORW | _IOREAD | _IOWRT))
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/mincl,v
- retrieving revision 1.25
- diff -c -r1.25 mincl
- *** 1.25 1993/02/17 23:58:01
- --- mincl 1993/03/16 22:09:05
- ***************
- *** 6,16 ****
- _truncdf.o _udivmod.o _umulsi3.o _fixsfsi.o _fltsisf.o _isnan.o
-
- #GLIB2 = gnulib2.o
- ! GLIB2 = _adddi3.o _subdi3.o _muldi3.o _divdi3.o _moddi3.o _udivdi3.o \
- ! _umoddi3.o _negdi2.o _anddi3.o _iordi3.o _xordi3.o _lshrdi3.o \
- ! _lshldi3.o _ashldi3.o _ashrdi3.o _one_cmpldi2.o _bdiv.o _cmpdi2.o \
- ! _ucmpdi2.o _fixunsdfdi.o _fixdfdi.o _floatdidf.o \
- ! _fxussfsi.o _gccbcmp.o
-
- GCC= $(GLIB1) $(GLIB2) \
- ldexp.o frexp.o modf.o alloca.o setjmp.o osbind.o\
- --- 6,23 ----
- _truncdf.o _udivmod.o _umulsi3.o _fixsfsi.o _fltsisf.o _isnan.o
-
- #GLIB2 = gnulib2.o
- ! #GLIB2 = _adddi3.o _subdi3.o _muldi3.o _divdi3.o _moddi3.o _udivdi3.o \
- ! # _umoddi3.o _negdi2.o _anddi3.o _iordi3.o _xordi3.o _lshrdi3.o \
- ! # _lshldi3.o _ashldi3.o _ashrdi3.o _one_cmpldi2.o _bdiv.o _cmpdi2.o \
- ! # _ucmpdi2.o _fixunsdfdi.o _fixdfdi.o _floatdidf.o \
- ! # _fxussfsi.o _gccbcmp.o
- !
- ! GLIB2 = _muldi3.o _divdi3.o _moddi3.o _udivdi3.o _umoddi3.o _negdi2.o \
- ! _lshrdi3.o _lshldi3.o _ashldi3.o _ashrdi3.o _udivmoddi4.o _cmpdi2.o \
- ! _ucmpdi2.o _floatdidf.o _floatdisf.o _fixunsdfsi.o _fixunssfsi.o \
- ! _fixunsdfdi.o _fixdfdi.o _fixunssfdi.o _fixsfdi.o _builtin_new.o \
- ! _caps_New.o _builtin_del.o _trampoline.o __main.o _ctor_list.o \
- ! _dtor_list.o
-
- GCC= $(GLIB1) $(GLIB2) \
- ldexp.o frexp.o modf.o alloca.o setjmp.o osbind.o\
- ***************
- *** 113,120 ****
- #
- # gnulib2 stuff (must be compiled with 32 bit ints)
-
- ! $(GLIB2): %.o: gnulib2.c
- ! $(CC) $(CLFLAGS) -DL$* -c gnulib2.c -o $@
-
- .PHONY: install install020 clean realclean all all020 top
-
- --- 120,127 ----
- #
- # gnulib2 stuff (must be compiled with 32 bit ints)
-
- ! $(GLIB2): %.o: libgcc2.c longlong.h
- ! $(CC) $(CLFLAGS) -DL$* -c $< -o $@
-
- .PHONY: install install020 clean realclean all all020 top
-
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/pipe.c,v
- retrieving revision 1.4
- diff -c -r1.4 pipe.c
- *** 1.4 1992/02/04 17:11:06
- --- pipe.c 1993/03/01 17:29:42
- ***************
- *** 5,10 ****
- --- 5,11 ----
- #include <stdlib.h>
- #include <unistd.h>
- #include <string.h>
- + #include "lib.h"
- #define __MINT__
- #include <mintbind.h>
-
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/popen.c,v
- retrieving revision 1.4
- diff -c -r1.4 popen.c
- *** 1.4 1991/12/26 15:53:59
- --- popen.c 1993/03/01 17:29:44
- ***************
- *** 24,29 ****
- --- 24,30 ----
- #include <fcntl.h>
- #include <string.h>
- #include <unistd.h>
- + #include "lib.h"
-
- struct _pipe {
- char pmode; /* "r" or "w" to/from the pipe ? */
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/spawnvp.c,v
- retrieving revision 1.6
- diff -c -r1.6 spawnvp.c
- *** 1.6 1991/04/26 03:42:08
- --- spawnvp.c 1993/03/01 17:29:46
- ***************
- *** 11,16 ****
- --- 11,17 ----
- #include <errno.h>
- #include <fcntl.h>
- #include <unistd.h>
- + #include "lib.h"
-
- __EXTERN char * findfile __PROTO((char *, char *, char **));
-
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_addsubd.cpp,v
- retrieving revision 1.5
- diff -c -r1.5 _addsubd.cpp
- *** 1.5 1992/12/28 07:55:59
- --- _addsubd.cpp 1993/03/01 17:33:55
- ***************
- *** 140,152 ****
- |
- nospec: tstw d0 | check for zero exponent - no leading "1"
- beq 0f
- ! orl #0x100000,d6 | restore implied leading "1"
- bra 1f
- 0: addw #1,d0 | "normalize" exponent
- 1:
- tstw d1 | check for zero exponent - no leading "1"
- beq 0f
- ! orl #0x100000,d4 | restore implied leading "1"
- bra 1f
- 0: addw #1,d1 | "normalize" exponent
- 1:
- --- 140,152 ----
- |
- nospec: tstw d0 | check for zero exponent - no leading "1"
- beq 0f
- ! bset #20,d6 | restore implied leading "1"
- bra 1f
- 0: addw #1,d0 | "normalize" exponent
- 1:
- tstw d1 | check for zero exponent - no leading "1"
- beq 0f
- ! bset #20,d4 | restore implied leading "1"
- bra 1f
- 0: addw #1,d1 | "normalize" exponent
- 1:
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_addsubs.cpp,v
- retrieving revision 1.5
- diff -c -r1.5 _addsubs.cpp
- *** 1.5 1992/12/28 07:56:00
- --- _addsubs.cpp 1993/03/01 17:33:57
- ***************
- *** 134,146 ****
- |
- nospec: tstw d0 | check for zero exponent - no leading "1"
- beq 0f
- ! orl #0x800000,d5 | restore implied leading "1"
- bra 1f
- 0: addw #1,d0 | "normalize" exponent
- 1:
- tstw d1 | check for zero exponent - no leading "1"
- beq 0f
- ! orl #0x800000,d4 | restore implied leading "1"
- bra 1f
- 0: addw #1,d1 | "normalize" exponent
- 1:
- --- 134,146 ----
- |
- nospec: tstw d0 | check for zero exponent - no leading "1"
- beq 0f
- ! bset #23,d5 | restore implied leading "1"
- bra 1f
- 0: addw #1,d0 | "normalize" exponent
- 1:
- tstw d1 | check for zero exponent - no leading "1"
- beq 0f
- ! bset #23,d4 | restore implied leading "1"
- bra 1f
- 0: addw #1,d1 | "normalize" exponent
- 1:
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_divdf3.cpp,v
- retrieving revision 1.4
- diff -c -r1.4 _divdf3.cpp
- *** 1.4 1992/12/28 07:56:03
- --- _divdf3.cpp 1993/03/01 17:33:59
- ***************
- *** 152,164 ****
- |
- nospec: tstw d0 | check for zero exponent - no leading "1"
- beq 0f
- ! orl #0x100000,d4 | restore implied leading "1"
- bra 1f
- 0: addw #1,d0 | "normalize" exponent
-
- 1: tstw d1 | check for zero exponent - no leading "1"
- beq 0f
- ! orl #0x100000,d6 | restore implied leading "1"
- bra 1f
- 0: addw #1,d1 | "normalize" exponent
-
- --- 152,164 ----
- |
- nospec: tstw d0 | check for zero exponent - no leading "1"
- beq 0f
- ! bset #20,d4 | restore implied leading "1"
- bra 1f
- 0: addw #1,d0 | "normalize" exponent
-
- 1: tstw d1 | check for zero exponent - no leading "1"
- beq 0f
- ! bset #20,d6 | restore implied leading "1"
- bra 1f
- 0: addw #1,d1 | "normalize" exponent
-
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_divsf3.cpp,v
- retrieving revision 1.4
- diff -c -r1.4 _divsf3.cpp
- *** 1.4 1993/01/13 14:30:38
- --- _divsf3.cpp 1993/03/01 17:34:01
- ***************
- *** 146,152 ****
- |
- nospec: tstw d0 | check for zero exponent - no leading "1"
- beq 0f
- ! orl #0x800000,d4 | restore implied leading "1"
- bra 1f
- 0: addw #1,d0 | "normalize" exponent
- 1:
- --- 146,152 ----
- |
- nospec: tstw d0 | check for zero exponent - no leading "1"
- beq 0f
- ! bset #23,d4 | restore implied leading "1"
- bra 1f
- 0: addw #1,d0 | "normalize" exponent
- 1:
- ***************
- *** 157,163 ****
-
- tstw d1 | check for zero exponent - no leading "1"
- beq 0f
- ! orl #0x800000,d5 | restore implied leading "1"
- bra 1f
- 0: addw #1,d1 | "normalize" exponent
- 1: tstl d5
- --- 157,163 ----
-
- tstw d1 | check for zero exponent - no leading "1"
- beq 0f
- ! bset #23,d5 | restore implied leading "1"
- bra 1f
- 0: addw #1,d1 | "normalize" exponent
- 1: tstl d5
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_extends.cpp,v
- retrieving revision 1.3
- diff -c -r1.3 _extends.cpp
- *** 1.3 1993/01/13 14:30:40
- --- _extends.cpp 1993/03/01 17:34:03
- ***************
- *** 56,62 ****
-
- nospec: tstw d0 | check for zero exponent - no leading "1"
- beq 0f | for denormalized numbers
- ! orl #0x800000,d4 | restore implied leading "1"
- bra 1f
- 0: addw #1,d0 | "normalize" exponent
- 1:
- --- 56,62 ----
-
- nospec: tstw d0 | check for zero exponent - no leading "1"
- beq 0f | for denormalized numbers
- ! bset #23,d4 | restore implied leading "1"
- bra 1f
- 0: addw #1,d0 | "normalize" exponent
- 1:
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_fixdfsi.cpp,v
- retrieving revision 1.3
- diff -c -r1.3 _fixdfsi.cpp
- *** 1.3 1992/10/09 20:35:29
- --- _fixdfsi.cpp 1993/03/01 17:34:05
- ***************
- *** 102,108 ****
- andw #0x07ff,d2 | kill sign bit
-
- andl #0x0fffff,d0 | remove exponent from mantissa
- ! orl #0x100000,d0 | restore implied leading "1"
-
- cmpw #BIAS8,d2 | check exponent
- blt zero | strictly factional, no integer part ?
- --- 102,108 ----
- andw #0x07ff,d2 | kill sign bit
-
- andl #0x0fffff,d0 | remove exponent from mantissa
- ! bset #20,d0 | restore implied leading "1"
-
- cmpw #BIAS8,d2 | check exponent
- blt zero | strictly factional, no integer part ?
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_fixsfsi.cpp,v
- retrieving revision 1.2
- diff -c -r1.2 _fixsfsi.cpp
- *** 1.2 1992/10/09 20:35:29
- --- _fixsfsi.cpp 1993/03/01 17:34:07
- ***************
- *** 20,29 ****
- zahl = 0
-
- lea 0xfffffa50:w,a0
- ! movew #0x5403,a0@(comm) | fintrz to fp0
- cmpiw #0x8900,a0@(resp) | check
- movel a7@(4),a0@
- - movel a7@(8),a0@
- movew #0x6000,a0@(comm) | result to d0
- | waiting loop is NOT coded directly
- 1: cmpiw #0x8900,a0@(resp)
- --- 20,28 ----
- zahl = 0
-
- lea 0xfffffa50:w,a0
- ! movew #0x4403,a0@(comm) | fintrz to fp0
- cmpiw #0x8900,a0@(resp) | check
- movel a7@(4),a0@
- movew #0x6000,a0@(comm) | result to d0
- | waiting loop is NOT coded directly
- 1: cmpiw #0x8900,a0@(resp)
- ***************
- *** 43,49 ****
- andw #0xff,d1 | kill sign bit
-
- andl #0x7fffff,d0 | remove exponent from mantissa
- ! orl #0x800000,d0 | restore implied leading "1"
-
- cmpw #BIAS4,d1 | check exponent
- blt zero | strictly factional, no integer part ?
- --- 42,48 ----
- andw #0xff,d1 | kill sign bit
-
- andl #0x7fffff,d0 | remove exponent from mantissa
- ! bset #23,d0 | restore implied leading "1"
-
- cmpw #BIAS4,d1 | check exponent
- blt zero | strictly factional, no integer part ?
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_fxunsd.cpp,v
- retrieving revision 1.2
- diff -c -r1.2 _fxunsd.cpp
- *** 1.2 1992/10/09 20:35:29
- --- _fxunsd.cpp 1993/03/01 17:34:09
- ***************
- *** 85,91 ****
- andw #0x07ff,d0 | kill sign bit
-
- andl #0x0fffff,d4 | remove exponent from mantissa
- ! orl #0x100000,d4 | restore implied leading "1"
-
- cmpw #BIAS8,d0 | check exponent
- blt zero | strictly factional, no integer part ?
- --- 85,91 ----
- andw #0x07ff,d0 | kill sign bit
-
- andl #0x0fffff,d4 | remove exponent from mantissa
- ! bset #20,d4 | restore implied leading "1"
-
- cmpw #BIAS8,d0 | check exponent
- blt zero | strictly factional, no integer part ?
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_muldf3.cpp,v
- retrieving revision 1.3
- diff -c -r1.3 _muldf3.cpp
- *** 1.3 1992/12/28 07:56:04
- --- _muldf3.cpp 1993/03/01 17:34:12
- ***************
- *** 142,148 ****
-
- tstw d0 | check for zero exponent - no leading "1"
- beq 0f
- ! orl #0x100000,d6 | restore implied leading "1"
- bra 1f
- 0: addw #1,d0 | "normalize" exponent
- 1: movel d6,d3
- --- 142,148 ----
-
- tstw d0 | check for zero exponent - no leading "1"
- beq 0f
- ! bset #20,d6 | restore implied leading "1"
- bra 1f
- 0: addw #1,d0 | "normalize" exponent
- 1: movel d6,d3
- ***************
- *** 151,157 ****
-
- tstw d1 | check for zero exponent - no leading "1"
- beq 0f
- ! orl #0x100000,d4 | restore implied leading "1"
- bra 1f
- 0: addw #1,d1 | "normalize" exponent
- 1: movel d4,d3
- --- 151,157 ----
-
- tstw d1 | check for zero exponent - no leading "1"
- beq 0f
- ! bset #20,d4 | restore implied leading "1"
- bra 1f
- 0: addw #1,d1 | "normalize" exponent
- 1: movel d4,d3
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_mulsf3.cpp,v
- retrieving revision 1.3
- diff -c -r1.3 _mulsf3.cpp
- *** 1.3 1993/01/13 14:30:42
- --- _mulsf3.cpp 1993/03/01 17:34:14
- ***************
- *** 128,134 ****
- nospec: subw #8,sp | multiplication accumulator
- tstw d0 | check for zero exponent - no leading "1"
- beq 0f
- ! orl #0x800000,d5 | restore implied leading "1"
- bra 1f
- 0: addw #1,d0 | "normalize" exponent
- 1: tstl d5
- --- 128,134 ----
- nospec: subw #8,sp | multiplication accumulator
- tstw d0 | check for zero exponent - no leading "1"
- beq 0f
- ! bset #23,d5 | restore implied leading "1"
- bra 1f
- 0: addw #1,d0 | "normalize" exponent
- 1: tstl d5
- ***************
- *** 136,142 ****
-
- tstw d1 | check for zero exponent - no leading "1"
- beq 0f
- ! orl #0x800000,d4 | restore implied leading "1"
- bra 1f
- 0: addw #1,d1 | "normalize" exponent
- 1: tstl d4
- --- 136,142 ----
-
- tstw d1 | check for zero exponent - no leading "1"
- beq 0f
- ! bset #23,d4 | restore implied leading "1"
- bra 1f
- 0: addw #1,d1 | "normalize" exponent
- 1: tstl d4
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_truncdf.cpp,v
- retrieving revision 1.3
- diff -c -r1.3 _truncdf.cpp
- *** 1.3 1992/12/28 07:56:10
- --- _truncdf.cpp 1993/03/01 17:34:16
- ***************
- *** 93,99 ****
- nospec:
- tstw d0 | check for zero exponent - no leading "1"
- beq 0f | for denormalized numbers
- ! orl #0x100000,d4 | restore implied leading "1"
- bra 1f
- 0: addw #1,d0 | "normalize" exponent
- 1:
- --- 93,99 ----
- nospec:
- tstw d0 | check for zero exponent - no leading "1"
- beq 0f | for denormalized numbers
- ! bset #20,d4 | restore implied leading "1"
- bra 1f
- 0: addw #1,d0 | "normalize" exponent
- 1:
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/atof.c,v
- retrieving revision 1.24
- diff -c -r1.24 atof.c
- *** 1.24 1993/01/13 14:30:52
- --- atof.c 1993/03/01 17:34:19
- ***************
- *** 573,581 ****
- if (i < 17)
- {
- if (i++ & 1)
- ! *++p = (*str - '0') << 4;
- else
- ! *p |= *str - '0';
- }
- str++;
- }
- --- 573,581 ----
- if (i < 17)
- {
- if (i++ & 1)
- ! *p = (*str - '0') << 4;
- else
- ! *p++ |= *str - '0';
- }
- str++;
- }
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/ctime.c,v
- retrieving revision 1.9
- diff -c -r1.9 ctime.c
- *** 1.9 1993/02/18 00:00:15
- --- ctime.c 1993/03/01 17:34:21
- ***************
- *** 23,38 ****
- { \
- long _i = (long)(mval); \
- __asm__ volatile("
- - extl %1;
- divu #10,%1;
- addb #48,%1;
- moveb %1,%0@+;
- swap %1;
- addb #48,%1;
- moveb %1,%0@+" \
- ! : "=a"((long)mptr) \
- ! : "d"(_i), "g"((unsigned short)mval), \
- ! "0"(mptr)); \
- }
-
- #else
- --- 23,36 ----
- { \
- long _i = (long)(mval); \
- __asm__ volatile("
- divu #10,%1;
- addb #48,%1;
- moveb %1,%0@+;
- swap %1;
- addb #48,%1;
- moveb %1,%0@+" \
- ! : "=a"(mptr), "=d"(_i) \
- ! : "1"(_i), "0"(mptr)); \
- }
-
- #else
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/doprnt.c,v
- retrieving revision 1.21
- diff -c -r1.21 doprnt.c
- *** 1.21 1993/02/18 00:00:18
- --- doprnt.c 1993/03/01 17:34:24
- ***************
- *** 142,148 ****
- do \
- { \
- __asm__ volatile \
- ! ("divull %3,%0:%1" \
- : "=d"((long)(NUMBER)), "=d"(i) \
- : "0"((long)(NUMBER)), "d"((long)(BASE))); \
- *--(BUF) = digs[i]; \
- --- 142,148 ----
- do \
- { \
- __asm__ volatile \
- ! ("divull %3,%1:%0" \
- : "=d"((long)(NUMBER)), "=d"(i) \
- : "0"((long)(NUMBER)), "d"((long)(BASE))); \
- *--(BUF) = digs[i]; \
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/filbuf.c,v
- retrieving revision 1.9
- diff -c -r1.9 filbuf.c
- *** 1.9 1992/03/22 21:57:30
- --- filbuf.c 1993/03/01 17:34:27
- ***************
- *** 36,41 ****
- --- 36,42 ----
- if((got = _read(fp->_file, fp->_base, (unsigned long)fp->_bsiz)) <= 0)
- { /* EOF or error */
- fp->_flag |= ((got == 0) ? ((f & _IODEV) ? 0 : _IOEOF) : _IOERR);
- + fp->_cnt = 0;
- return EOF;
- }
- fp->_cnt = got - 1;
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/fopen.c,v
- retrieving revision 1.18
- diff -c -r1.18 fopen.c
- *** 1.18 1992/09/14 14:56:40
- --- fopen.c 1993/03/01 17:34:29
- ***************
- *** 9,14 ****
- --- 9,16 ----
- __EXTERN void _getbuf __PROTO((FILE *));
- static FILE *_fopen __PROTO((const char *, const char *, FILE *));
-
- + extern int __mint;
- +
- /* lowest character device handle # */
- #define LAST_DEVICE __SMALLEST_VALID_HANDLE
-
- ***************
- *** 120,126 ****
- if(fflush(fp) != 0) return NULL; /* flush err */
- if(close(fp->_file) != 0) return NULL; /* close err */
- #else
- ! fflush(fp); close(fp->_file); /* ANSI says ignore errors */
- #endif
- }
- /* save buffer discipline and setbuf settings, and _IOWRT just for
- --- 122,130 ----
- if(fflush(fp) != 0) return NULL; /* flush err */
- if(close(fp->_file) != 0) return NULL; /* close err */
- #else
- ! fflush(fp); /* ANSI says ignore errors */
- ! if (__mint || !(f & _IODEV)) /* leave tty's alone */
- ! close(fp->_file);
- #endif
- }
- /* save buffer discipline and setbuf settings, and _IOWRT just for
- ***************
- *** 145,149 ****
- --- 149,157 ----
- fp->_flag &= ~(_IONBF | _IOLBF | _IOFBF | _IOMYBUF);
- fp->_flag |= f;
-
- + if (fp->_base == NULL)
- + /* get new buffer if file was closed */
- + _getbuf (fp);
- +
- return fp;
- }
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/getpid.c,v
- retrieving revision 1.6
- diff -c -r1.6 getpid.c
- *** 1.6 1992/09/14 14:56:40
- --- getpid.c 1993/03/01 17:34:31
- ***************
- *** 1,7 ****
- #include <osbind.h>
- #include <unistd.h>
- #include <basepage.h>
- ! #include "mintbind.h"
-
- extern int __mint;
-
- --- 1,7 ----
- #include <osbind.h>
- #include <unistd.h>
- #include <basepage.h>
- ! #include <mintbind.h>
-
- extern int __mint;
-
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/gmon.c,v
- retrieving revision 1.10
- diff -c -r1.10 gmon.c
- *** 1.10 1992/10/09 20:35:29
- --- gmon.c 1993/03/16 22:16:25
- ***************
- *** 106,112 ****
- __EXTERN void _mcleanup __PROTO((void));
- __EXTERN int profil __PROTO((void *buff, unsigned long bufsiz, unsigned long offset,
- int shift));
- ! static void tick __PROTO((void));
- static void term __PROTO((void));
- static void install_handlers __PROTO((void));
- static void remove_handlers __PROTO((void));
- --- 106,112 ----
- __EXTERN void _mcleanup __PROTO((void));
- __EXTERN int profil __PROTO((void *buff, unsigned long bufsiz, unsigned long offset,
- int shift));
- ! /* static */ void tick __PROTO((void));
- static void term __PROTO((void));
- static void install_handlers __PROTO((void));
- static void remove_handlers __PROTO((void));
- ***************
- *** 272,277 ****
- --- 272,289 ----
- * we dont use this, it was a convention for the old prof stuff.
- */
-
- + #if __GNUC__ > 1
- + void mcount (void) asm ("mcount");
- +
- + void
- + mcount ()
- + {
- + void *callee, *caller;
- + callee = (void *) __builtin_return_address (0);
- + caller = (void *) __builtin_return_address (1);
- + build_graph (caller, callee);
- + }
- + #else
- __asm__("\
- .text; .even
- .globl mcount /* note: no `_' */
- ***************
- *** 284,289 ****
- --- 296,302 ----
- addqw #8,sp
- rts
- ");
- + #endif
-
- /*
- * build_graph
- ***************
- *** 428,434 ****
- static unsigned long maxidx;
- static unsigned long off;
- static unsigned long shift_val;
- - static void term(void), tick(void);
-
- static xbra_struct tick_xbra = _XBRA_INIT(tick);
- static xbra_struct term_xbra = _XBRA_INIT(term);
- --- 441,446 ----
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/lib.h,v
- retrieving revision 1.8
- diff -c -r1.8 lib.h
- *** 1.8 1992/09/14 14:56:40
- --- lib.h 1993/03/01 17:34:34
- ***************
- *** 75,78 ****
- --- 75,112 ----
-
- extern struct mem_chunk _mchunk_free_list;
-
- + /* status of open files (for isatty, et al.) */
- +
- + #ifdef __MINT__
- +
- + #define __NHANDLES 40
- +
- + struct __open_file {
- + short status; /* whether or not it's a tty */
- + short flags; /* if a tty, its flags */
- + };
- +
- + #else
- +
- + #define __NHANDLES 80
- + struct __open_file {
- + unsigned short append:1; /* 1 if O_APPEND set for this file */
- + unsigned short nodelay:1; /* 1 if O_NDELAY set for this file */
- + unsigned short pipe:1; /* 1 if O_PIPE set for this file */
- + unsigned short eclose:1; /* 1 if close on exec is set for this file */
- + unsigned short status:2; /* status FH_UNKNOWN | ISATTY | ISAFILE */
- + char *filename; /* filename of open file */
- + };
- +
- + #endif /* __MINT__ */
- +
- + extern struct __open_file __open_stat[];
- + /* NOTE: this array is indexed by (__OPEN_INDEX(fd)) */
- +
- + #define __OPEN_INDEX(x) (((short)(x)) + 3)
- +
- + #define FH_UNKNOWN 0
- + #define FH_ISATTY 1
- + #define FH_ISAFILE 2
- +
- #endif /* _LIB_H */
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/ltoa.c,v
- retrieving revision 1.8
- diff -c -r1.8 ltoa.c
- *** 1.8 1992/09/14 14:56:40
- --- ltoa.c 1993/03/01 17:34:36
- ***************
- *** 1,6 ****
- #include <string.h>
- #include "lib.h"
- - #include "lib.h"
-
- #ifdef __STRICT_ANSI__
- # ifdef __STDC__
- --- 1,5 ----
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/realloc.c,v
- retrieving revision 1.2
- diff -c -r1.2 realloc.c
- *** 1.2 1992/09/14 14:56:40
- --- realloc.c 1993/03/16 22:16:27
- ***************
- *** 38,44 ****
- p = r - 1;
- sz = (n + sizeof(struct mem_chunk) + 7) & ~7;
-
- ! if (p->size > sz)
- { /* block too big, split in two */
- q = (struct mem_chunk * )(((long) p) + sz);
- q->size = p->size - sz;
- --- 38,44 ----
- p = r - 1;
- sz = (n + sizeof(struct mem_chunk) + 7) & ~7;
-
- ! if (p->size > sz + ((sizeof (struct mem_chunk) + 7) & ~7))
- { /* block too big, split in two */
- q = (struct mem_chunk * )(((long) p) + sz);
- q->size = p->size - sz;
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/strerror.c,v
- retrieving revision 1.5
- diff -c -r1.5 strerror.c
- *** 1.5 1992/06/01 01:54:10
- --- strerror.c 1993/03/01 17:34:39
- ***************
- *** 86,92 ****
- nullstr, /* 78 */
- nullstr, /* 79 */
- "too many symbolic links", /* 80 */
- ! nullstr, /* 81 */
- nullstr, /* 82 */
- nullstr, /* 83 */
- nullstr, /* 84 */
- --- 86,92 ----
- nullstr, /* 78 */
- nullstr, /* 79 */
- "too many symbolic links", /* 80 */
- ! "broken pipe", /* 81 */
- nullstr, /* 82 */
- nullstr, /* 83 */
- nullstr, /* 84 */
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/strftime.c,v
- retrieving revision 1.7
- diff -c -r1.7 strftime.c
- *** 1.7 1992/09/14 14:56:40
- --- strftime.c 1993/03/01 17:34:40
- ***************
- *** 178,186 ****
- putstr = "\n";
- break;
- case 't': /* same as \t */
- ! putstr = "\n";
- break;
- - break;
- case 'D': /* date as %m/%d/%y */
- strftime(buf, sizeof buf, "%m/%d/%y", ts);
- break;
- --- 178,185 ----
- putstr = "\n";
- break;
- case 't': /* same as \t */
- ! putstr = "\t";
- break;
- case 'D': /* date as %m/%d/%y */
- strftime(buf, sizeof buf, "%m/%d/%y", ts);
- break;
- ***************
- *** 197,202 ****
- --- 196,205 ----
- strftime(buf, sizeof buf, "%H:%M:%S", ts);
- break;
- #endif
- + default:
- + buf[0] = q;
- + buf[1] = 0;
- + break;
- }
-
- if (num + (len = strlen(putstr)) >= maxsize)
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/strlwr.c,v
- retrieving revision 1.2
- diff -c -r1.2 strlwr.c
- *** 1.2 1993/02/18 00:00:32
- --- strlwr.c 1993/03/01 17:34:43
- ***************
- *** 10,16 ****
- while(*string)
- {
- if(isupper(*string))
- ! *string ^= 0x20;
- ++string;
- }
- }
- --- 10,16 ----
- while(*string)
- {
- if(isupper(*string))
- ! *string = tolower(*string);
- ++string;
- }
- }
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/strtol.c,v
- retrieving revision 1.12
- diff -c -r1.12 strtol.c
- *** 1.12 1992/09/14 14:56:40
- --- strtol.c 1993/03/01 17:34:45
- ***************
- *** 88,96 ****
- if (0 == (overflow &= 1)) { /* valid digit
- - some conversion performed */
- if ((result < limit) ||
- ! ((unsigned long) digit >
- ! (unsigned long) (result = _BASEMUL(base, shift, result),
- ! result - bottom))) {
- result = bottom;
- overflow = 1;
- }
- --- 88,95 ----
- if (0 == (overflow &= 1)) { /* valid digit
- - some conversion performed */
- if ((result < limit) ||
- ! /* watch out for overflow (-bottom == bottom!) */
- ! (digit + bottom > (result = _BASEMUL(base, shift, result)))) {
- result = bottom;
- overflow = 1;
- }
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/strupr.c,v
- retrieving revision 1.1
- diff -c -r1.1 strupr.c
- *** 1.1 1993/02/22 06:15:14
- --- strupr.c 1993/03/01 17:34:47
- ***************
- *** 11,17 ****
- while(*string)
- {
- if(islower(*string))
- ! *string ^= 0x20;
- ++string;
- }
- }
- --- 11,17 ----
- while(*string)
- {
- if(islower(*string))
- ! *string = toupper(*string);
- ++string;
- }
- }
-